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PREFACE 


This manual is another in the series of manuals entitled ‘‘Fundamentals of COBOL.’’ As 

with the other volumes of the series, it does not represent the COBOL implementation for any 

particular computer system; rather, it is intended as a basic reference source to acquaint the 

reader with the COBOL Random Access feature. The information in this manual is in accord- 
& ance with the Random Access module, Level 2 of USA Standard COBOL, X3.23-1968. 


The Random Access module provides the capability for accessing records of a mass storage 
file in a random manner according to a programmer-supplied key. This module also provides 
for the specification of rerun points and the sharing of memory among files. 


The purpose of this manual is to introduce the concept of mass storage files and to describe 
those specific features of the COBOL language used to access mass Storage files. 
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SECTION: 


1. INTRODUCTION 


GENERAL 


The terms ‘‘mass Storage,’’ ‘‘random access,’’ and ‘‘direct access’’ refer to storage 
devices capable of accessing data directly by reference to a physical location on the 
device, as opposed to devices such as magnetic tape which require time to scan 
sequentially-located records until the desired record is reached. 


The Mass Storage feature (Random Access module) of COBOL is provided to permit 
utilization of the nonsequential file organization and random access capability of the 
direct access device. 


The capability of processing sequentially organized files stored on non-mass storage 
devices is provided by the COBOL language as described in the Fundamentals of 
COBOL-Language. Since direct access devices can also be used as sequential access 
devices, reference is made to this manual where applicable. 


BASIC TERMINOLOGY 
The key terms used in this manual are defined here. 


m Sequential Access 


An access mode in which a logical record read from or written to a file has both a 
logical predecessor and logical successor. The first access to a file accesses a 
record that has no logical predecessor; each successive access refers to the logical 
successor of the previously accessed logical record. The predecessor/successor 
relationships of a record are established when the record is written to a file. 


When stored on a direct access device, the logical predecessor atid successor to a 
logical record need not be physically contiguous; however, the nature of non-mass 
storage devices requires that they be physically contiguous. 


mw Random Access 


An access mode in which specific logical records are obtained from or placed in a 
mass storage file in a nonsequential manner in accordance with a programmer- supplied 
key that is updated by the programmer as required. 


mw Sequential (Synchronous) Processing 
The manner of processing logical records in the order in which the records are made 
available. Execution of each statement must be completed before a subsequent state- 
ment can be initiated. 


m Random (Asynchronous) Processing 


The manner of processing logical records where statements are not necessarily 
executed or completed in the order in which they were initiated. 


This processing mode is not a part of USA Standard COBOL; the definition is given 
here for reference only. 
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2. FILE HANDLING 


TECHNIQUES 
The COBOL Mass Storage feature provides two techniques for handling files: 
mw Sequential access with sequential processing 


m Random access with sequential processing 


Sequential Access/Sequential Processing 


When sequential access with sequential processing is used, the logical records of a 
file are accessed sequentially in the order in which they were created and processed 
in that same order (sequentially). This technique is implemented by the COBOL 
language primarily for use with tape, printer, and card devices, but tnay also be used 
with mass storage devices. However, there is a substantial difference between file 
processing on non-mass storage and mass storage devices. 


During processing, a magnetic tape file is either an input file or an output file; it 
cannot be both at the same time. After a record is read from tape, the reel is automa- 
tically in proper position for the next sequential READ. Any writing on tape that may 
occur before the reading of the next record can only be done on another (output) file. 
The contents of an input file remain unchanged by a READ. 


In contrast, a mass storage file may be used for both input and output. A read opera- 
tion may be performed on the same physical file as a write operation. The usual 
technique for updating a mass storage file is to read a record, process it, and then 
overwrite the original record with the updated version. 


The actual location of a specific mass storage record is specified by an actual key 
Similar to the ACTUAL KEY clause used in random access/sequential processing; 
however, the actual key is updated solely by the operating system to permit access of 
subsequent records. Therefore, the programmer does not write the ACTUAL KEY 
clause when sequential access is used. 


The imperative statement in the AT END phrase associated with the next READ 
statement in order of execution is executed when the logical end of the mass storage 
file is detected. For WRITE statements, the detection of the logical end of a mass 
storage file before the execution of the CLOSE statement causes the actual key to 
contain an address outside the logical limits of the file. As this value represents an 
erroneous location in the file, the INVALID KEY path associated with a particular 
WRITE statement is executed when that verb is executed. 
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Random Access/Sequential Processing 


With this technique, records are accessed in the order specified by the programmer in 
the ACTUAL KEY clause and processed sequentially (in the order in which they were 
accessed). The function of locating the data record in the file for subsequent reading 
or writing is accomplished by the SEEK statement. The SEEK statement is performed 
implicitly by a READ or WRITE if no immediately preceding SEEK has been executed, 
or if the SEEK and READ or WRITE refer to different records. The contents of the 
ACTUAL KEY are used by the compiler as the desired record’s location identifier at 
the time of execution of the explicit of implicit SEEK statement. 


Other procedural statements may be executed during the physical seeking operation if 
they have been written between the SEEK statement and the READ or WRITE statement 
for a particular file. The READ or WRITE of a particular record of a file cannot be 
executed until an explicit or implicit seek operation has been completed. 


Until a READ statement is executed, any references to data items within the record 
description of the record being sought will refer to the contents of the last record 
obtained from the file. Therefore, if the program is written to take advantage of the 
ability to execute statements during the seek operation, this ‘‘internal lag’’ of one 
record must be taken into account by the programmer. 


When random access is specified for a mass storage file, there is no logical end to the 
file. Thus, the INVALID KEY phrase must be specified for both the READ and WRITE 
statements. If, during execution of either a READ or a WRITE statement, the ACTUAL 
KEY points to a location outside the logical limits for a file, the imperative statement 
in the INVALID KEY phrase is executed. 


FILE ORGANIZATION 


The manner in which files are organized is usually a function of the individual mass 
Storage system; the programmer need only select the access mode. However, since a 
general knowledge of file organization may prove helpful to the programmer, the 
following discussion is given. 


Various types of file organization are possible for direct access devices. Since file 
organization can vary considerably with the individual implementation, only a general 
description of a few types can be given here. 


Before discussing individual methods, it is important to distinguish between a physical 
record and a logical record. 


A COBOL logical record is a group of related information, uniquely identifiable, and 
treated as a unit. In a COBOL program, an input or output statement refers to one 
logical record. A logical record may be contained within a single physical unit, or 
several logical records may be contained within a single physical unit, or a logical 
record may require more than one physical unit to contain it. The ACTUAL KEY refers 
to the physical location of a logical record in mass storage unit. 


A physical record is a physical unit (or block) of information; its size and recording 
mode are convenient to a particular computer for the storage of data on an input or 
output device. The size of a physical record is hardware-dependent and bears no direct 
relationship to the size of the file of information contained on a device. 
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Sequential Data Organization 


When sequential data organization is used, the logical records of a file are written 
sequentially (physically contiguous) in the order in which they are created. Readback 
is also sequential, that is, before a particular logical record can be accessed, all its 


predecessors must be read. 


This type of data organization is normally used for tape and card files, but can also 


be used for mass storage files. 


Relative Data Organization 


Relative data organization uses relative logical record addressing. When this addres- 
sing scheme is used, the position of the logical records in a file is determined relative 
to the first record of the file; the maximum record number is defined by the size of the 
file. This structure is shown in Figure 2-1. A unique key (relative record address) 


SECTION: 











2 


identifies a record, enabling the user to access records in any sequence. 


Files with relative data organization must be assigned to direct access devices. 


Note that entries in this type of file consist entirely of data; no record identification 
entries are required for system recognition, thereby giving the user access to the 


contents of the entire file. 


Two levels of classification are required with this type of organization in order to 
access a particular record: file-name and record. 


Record 0 
Data 
Record 1 
Data 
Record 2 
Data 


Record n 
Data 


Relative File Structure 







Figure 2-1. 
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Direct Data Organization 


Direct data organization is characterized by use of relative physical record (block) 
addressing. With this method, the location of each logical record in a file is determined 
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by keys supplied by the programmer. 


These keys specify two things: 

m the block (relative to the first block of the file) at which the search is to begin 

m the record sought 

This is shown in Figure 2—2 where Block is the unique major data classification within 
a file and contains both data and block identification information. Record is the minor 


classification of data within a Block and contains both data and record identification 
information. Block and record identification information are for system use only and 


are not available to the programmer. 


This type of organization permits the use of both fixed- and variable-length records 
and/or blocks. However, it requires three levels of classification: file-name, block, 


and record. 


Files with direct data organization must be assigned to direct access devices. 


Figure 2-2. 
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3. PROGRAMMING 
CONSIDERATIONS 


3.1. GENERAL 
The format and usage of the various entries required in the Environment, Data, and 


Procedure Divisions for utilization of the Mass Storage feature of COBOL are described 
in this section. 


3.2. ENVIRONMENT DIVISION 
There is no change required to the Configuration Section of this division when random 
access is used. However, the format of both the FILE-CONTROL and I-O-CONTROL 


patagtaphs in the Input-Output Section differ from that given for sequential access in 
the Fundamentals of COBOL — Language. 


3.2.1. FILE-CONTROL 
Format: 


FILE-CONTROL. < SELECT file-name 


ASSIGN TO [integer-1] implementor-name-1 [ ,implementor-name-2 | wigs 
FILE-LIMIT IS data-name-1 data-name-2 
" LEILE-LIMITS AREf Qliteral-1 THRU literal-2 


, §data-name-3 data-name-4 
| tei \ i ree | : : 


RANDOM \ 


_ECeESS MORE IS eeGuEN TIAL 


, PROCESSING MODE IS SEQUENTIAL 


, ACTUAL KEY IS tatenames ese 


Description: 


This paragraph names each file, identifies the file medium, and assigns each file to a 
particular hardware device. The FILE-CONTROL paragraph is required when the 
Input-Output Section header is present. 
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SELECT 


Format: 


SELECT file-name 


Description: 
Each file described in the Data Division must be named once and only once as the 


file-name in a separate SELECT clause in the FILE-CONTROL paragraph. 


ASSIGN 


Format: 


ASSIGN TO [ integer-1 ] implementor-name-1 [. implementor-name-2 | 3 


Description: 


All files used in a program must be assigned to an input or output medium. Integer-1 
indicates the number of input-output units of a given medium assigned to the file- 
name specified in the SELECT clause. If integer-1 is not specified, the compiler 
determines the number of units assigned. The implementor-name of each input-output 
unit is given in the individual computer system’s programmer reference manual. 
Integer-1 must be unsigned. 


This clause is also used in some implementations in lieu of the FILE-LIMITS 

clause to implicitly define the limits of files. This is usually accomplished by either 
assigning one file to one device, or by using a control card to assign one or more 
files to a device. If file limit information is given in both the ASSIGN and FILE- 
LIMITS clause, either implicitly or explicitly, the value of the data items specified in 
the FILE-LIMITS clause must be within the range of limits specified in the ASSIGN 
clause. 


FILE-LIMIT 


Format: 


FILE-LIMIT IS data-name-1 THRU data-name-2 
FILE-LIMITS ARE literal-] = literal-2 


data-name-3 data-name-4 
ae \ aoe eee | 


Description: 


The FILE-LIMIT clause specifies the file limits within which logical records are to 
be obtained or placed. The two operands associated with the key word THRU 
represent the logical beginning and end of a mass storage file segment. 


If the contents of the ACTUAL KEY data items point to records outside the given 
limits, the INVALID KEY phrase on READ and WRITE statements is executed. 
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ACCESS MODE 


Format: 


, ACCESS MODE IS ipancou 


SEQUENTIAL 


Description: 


The ACCESS MODE clause must be given for mass storage files. The key word 
RANDOM specifies that randomly located records are to be retrieved or written in 
accordance with the contents of the ACTUAL KEY clause. The key word SEQUEN- 
TIAL specifies that records are to be obtained or placed sequentially; that is, the 
next logical record is made available from or placed in a file upon execution of a 
READ or WRITE statement, respectively. 


PROCESSING MODE 


Format: 


, PROCESSING MODE IS SEQUENTIAL 


Description: 


This clause is required for mass storage files; it specifies that records are to be 
processed in the order in which they were accessed. 


ACTUAL KEY 
Format: 


, ACTUAL KEY IS data-name-5 


Description: 


This phrase is required when ACCESS MODE IS RANDOM, since the contents of 
data-name-5 are used by the SEEK, READ, and WRITE statements to locate a 
specific mass storage record. Therefore, the address or a pointer to the address 

of the record must be placed in data-name-5 prior to the execution of a SEEK 
statement (or the implicit SEEK statement contained in READ and WRITE state- 
ments). The ACTUAL KEY clause is not used when ACCESS MODE IS SEQUENTIAL. 


Upon execution of a READ, the logical record specified by data-name-5 is made 
available from the file. When executing a WRITE, the specified logical record is 
placed in the file location specified by data-name-5. 
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I-O-CONTROL 





Format: 


|-O-CONTROL. | ; RERUN | on oe | 


implementor-name 


integer-1 RECORDS OF file-name-2 
EVERY <integer-2 CLOCK-UNITS 
condition-name 


[: SAME [ RECORD | AREA FOR file-name-3 


: file-name-4 | rc i: ‘ 


Description: 


The I-O-CONTROL paragraph is optional; it is used to specify input-output techniques, 
rerun points, and memory area to be shared by different files. 


3.2.2.1. RERUN 


Format: 


- RERUN [on eee | 
——— we implementor-name 


integer-1 RECORDS OF file-name-2 
EVERY < integer-2 CLOCK-UNITS 


condition-name 





Description: 


The RERUN clause specifies where and when rerun information is to be recorded. 
This information (called a checkpoint record) is a memory dump taken at a given 
point in the computer run during execution of the object program. The checkpoint 
record contains all information required to rerun the program from that given point. 
This permits processing to be resumed from the last checkpoint in the program 
(rather than from the beginning of the run) in the event of program stoppage due to 
an error or interruption. 


Memory can be dumped into an output file by specifying file-name-1, or into a 
separate rerun file by specifying the implementor-name of the device. 


If file-name-1 is specified in the ON option, normal closing functions are performed 
for this file along with the memory dump. In this case, file-name-2 can be either an 
input or an output file. 


The EVERY portion of the RERUN clause controls the intervals between memory @ 
dumps as follows: 
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m When the number of records specified by integer-1 of an input or output file, 
file-name-2, have been processed. In this case, implementor-name must be 
specified. 


@ When the interval of time specified by integer-2 in the CLOCK-UNITS option has 
elapsed. The unit of time is dependent on the implementation for the particular 
computer. Here also, implementor-name must be specified. 


@ When a hardware switch assumes the status specified by condition-name. In this 
case, the hardware switch must be defined in the SPECIAL-NAME paragraph of 
the Configuration Section in the Environment Division. The status of the switch 
is interrogated at the intervals specified in the implementation for the particular 
computer. 


SAME 


Format: 


[; SAME [RECORD ] AREA FOR file-name-3 


\, file-name-4 | So | on 


Description: 


The SAME AREA clause specifies that two or more files are to use the same memory 
area during processing. The area being shared includes all storage areas (including 
alternate areas) assigned to the files specified; therefore, it is not valid to have 
more than one of the files open at the same time. 


The SAME RECORD AREA clause specifies that two or more files are to use the 
same memory area for processing of the current logical record. All of the files may 
be open at the same time. A logical record in the SAME RECORD AREA is consid- 
ered as a logical record of: 


m each opened output file with its file-name appearing in this SAME RECORD 
AREA clause, 


m the most recently read input file with its file-name appearing in this SAME 
RECORD AREA clause. 


More than one SAME clause may be included in a program. However: 
a A file-name must not appear in more than one SAME AREA clause. 
mu A file-name must not appear in more than one SAME RECORD AREA clause. 


@ If one or more file-names appearing in a SAME AREA clause appear in a SAME 
RECORD AREA clause, all of the file-names in that SAME AREA clause must 
appear in that SAME RECORD AREA clause. However, additional file-names not 
appearing in that SAME AREA clause may also appear in that SAME RECORD AREA 
clause. The rule that only one of the files mentioned in a SAME AREA clause can 
be open at any given time takes precedence over the rule that all files mentioned 
in a SAME RECORD AREA clause can be open at any given time. 
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A file-name that represents a sort file must not appear in the SAME clause unless 
the RECORD option is used; see Fundamentals of COBOL-—Sorting. 





3.3. DATA DIVISION 


The format and usage of the File-Section of the Data Division are the same for both mass 
storage and sequential files. Therefore, only the format and a brief description are 

given here; see Fundamentals of COBOL — Language for a complete description of the 
File-Section. 


3.3.1. File Description 


Format: 


ED file-name 


; : : RECORDS 
: BLOCK contains [integer-1 To | integer-2 ee | 


RECORD IS 
; DATA RECORDS ARE data-name-1 Ls data-name-2]. a 


RECORD |S STANDARD 
; LABEL 9 Becopn OMITTED 
RECORDS ARE data-name-3 iz data-name-4 } ae ag 





; RECORD ; BLOCK CONTAINS [integer-3 TO ] integer-4 CHARACTERS | 


Cac) 


data-name-6 \ 
literal-1 


; VALUE OF data-name-5 i$ , 


data-name-8 
: data-name-7 |S ae | a 


Description: 


The File Description paragraph identifies a given file, the records contained therein, 
and describes the physical structure of that file. 


3.4. PROCEDURE DIVISION 
The Declaratives portion of the Procedure Division and the verb formats used with the 
Mass Storage feature are described in the following paragraphs. Note that the Declara- 


tives portion is the same for the Sequential Access and Random Access modules of USA 
Standard COBOL. 
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DECLARATIVES 
Format: 


DECLARATIVES. 


{section-name SECTION. declarative-sentence 


\paragraph-name. { sentence \ toys oc 2 : 


ND DECLARATIVES. 


Description: 


DECLARATIVES is a set of one or more sections written at the beginning of the 
Procedure Division. Each section contains a compiler-directing statement which 
specifies the circumstances under which the procedures contained therein are to be 
executed. DECLARATIVES exists outside the main body of the Procedure Division 
at execution time and is used only when the condition defined in the USE statement 
contained in the declarative-sentence arises. 


Each declarative operates under control of either the inline procedure or the input/ 
output system. The Declaratives portion of the Procedure Division must be preceded 
by the header DECLARATIVES and terminated by the key words END DECLARATIVES. 


Each declarative must begin with a section-name followed by a declarative-sentence 
(USE statement). The remainder of the section consists of one or more procedural 
paragraphs. 


3.4.1.1. USE 


Formats: 


Format 1: 


SE AFTER STANDARD ERROR PROCEDURE ON 


file-name-1 [. file-name-2 | witod 
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Format 2: 


BEGINNING 


\ STANDARD [ ENDING 


| [ FILE | LABEL PROCEDURE ON 


BEFORE 
USE J—ateS 
Wa 


file-name-1 [; file-name-2 | ren 
INPUT 
OUTPUT 


1-0 


Description: 


The USE statement is used to specify special procedures for input and output label 
and error handling. 


The USE statement, when present, must immediately follow a declarative section 
header and be followed by a period followed by a space. The remainder of the 
declarative must consist of one or more procedural paragraphs that define the 
procedure to be used. 


The USE statement is not an executable statement; rather, it defines conditions 
calling for the execution of its associated procedures. 


The designated procedures are executed by the input/output system at the appropri- 
ate time as follows: 


w Format 1 is executed after completion of the standard input/output error routine. 


= Format 2 is executed before or after a beginning or ending input label check 
procedure is executed; before a beginning or ending output label is created; after 
a beginning or ending output label is created, but before it is written on the file; 
before or after a beginning or ending input/output label check procedure is 
executed. (Note that Format 2 USE procedures never apply to files that are 
described with the LABEL RECORDS ARE OMITTED clause.) 


A file-name may appear in more than one USE statement providing it does not cause 
simultaneous requests for execution of more than one USE declarative. 


No references are permitted within a USE statement to any non-declarative proced- 
ure; conversely, no nondeclarative procedure can make reference to a procedure- 
name which appears in the Declaratives portion, with the following exception: a 
PERFORM statement may refer to a USE declarative or its associated procedures. 
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@ The following rules apply to Format 2: 


@ If an option other than file-name-1 is specified, references within procedures to 
common label items need not be qualified by a file-name. A common label item is 
an elementary data item that appears in every label record of the program, but 
does not appear in any of the program’s data reccrds. A common label item must 
have the same name, description, and relative position in every label record. 


m If the file-name option is selected, the File Description entry for file-name-1 must 
not contain a LABEL RECORDS ARE OMITTED clause. If the INPUT, OUTPUT, 
or I-O option is specified, the USE procedures do not apply to any of their 
respective file types which are described with the LABEL RECORDS ARE 
OMITTED clause. 


a If the key words BEGINNING or ENDING are omitted, the designated procedures 
are executed for both beginning and ending labels. 


m The designated procedures for FILE labels are executed even if the word FILE 
is not specified. 


3.4.2. Verbs 


The COBOL Mass Storage feature requires the use of modified formats for the CLOSE, 
OPEN, READ, and WRITE verbs and the addition of a new verb, SEEK. 


3.4.2.1. CLOSE 
Format: 
CLOSE file-name-1[ UNIT][WITH LOCK ] 
[. file-name-2 [UNIT] [WITH Lock) ]. oe 


Description: 


The CLOSE statement terminates processing of the file(s) specified by file-name. 
Once a file has been closed, no other statement can be executed for that file until it 
is again opened. 


The WITH LOCK option locks the file (or unit), thereby preventing it from being 
opened again during execution of the current object program. The UNIT option is 
only applicable to mass storage files in the sequential access mode (see Fundamen- 
tals of COBOL — Language for closing of sequential files). 
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3.4.2.2. 


FUNDAMENTALS OF COBOL 
MASS STORAGE 


SECTION: 


OPEN 





Format: 


INPUT file-name [, file-name]... 
OPEN < OUTPUT file-name fs file-name | ee 


1-0 file-name [. file-name] ney a 


Description: 


The OPEN statement initiates processing of the named files by checking and/or 
writing labels, and performing any other input/output operations prior to accessing 
the first record in a given file. The address of the initially accessed record is 
supplied through the FILE-LIMIT clause in the Environment Division. However, the 
OPEN statement does not obtain or release the first data record; a READ ora 
WRITE statement must be executed. The contents of the ‘ita-names specified in the 
FILE-LIMIT clause of the FILE-CONTROL paragraph are checked only when the 
OPEN statement is executed. 


Each of the choices (INPUT, OUTPUT, I-O) can be specified only once in an OPEN 
statement. A second OPEN statement for a file cannot be executed prior to the 
execution of a CLOSE statement for that file. 


When checking or writing the first label, the user’s beginning label subroutine is 
executed if specified in a USE statement. @ 





If an input file (ACCESS MODE IS SEQUENTIAL) is designated as OPTIONAL in 
the FILE-CONTROL paragraph, the object program causes an interrogation for the 
presence of this file. If the file is not present, the first READ statement for this 
file causes the imperative statement in the AT END phrase to be executed. See the 
Fundamentals of COBOL — Language for a description of the OPTIONAL and AT 
END clauses. 


The I-O option permits the opening of a mass storage file for both input and output 
operations. This option cannot be used if the mass storage file is being initially 
created, since its presence implies previous existence of the file. 


The I-O option causes the following to occur: 


m The label is checked in accordance with the implementor’s specified conventions 
for input/output label checking. 


m The user’s beginning label subroutine is executed if one is specified by a USE 
statement. 


m The new label is written according to the implementor-specified conventions. 
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FUNDAMENTALS OF COBOL 
MASS STORAGE 
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SECTION: PAGE: 


READ 


Formats: 


Format 1: 


READ file-name RECORD [into identifier | 2AT END duperaiiveeiercment 
Format 2: 


READ file-name RECORD [INTO identifier| ; INVALID KEY imperative-statement 


Description: 


Format 1 of the READ statement is used only for non-mass storage files or for mass 
storage files in the sequential access mode. It makes available the next logical 
record from an input file (file-name) and allows performance of imperative-statement 
when end of file is detected. The rules for this format are given in Fundamentals of 
COBOL — Language. 


Format 2 is used to read mass storage files in the random access mode. It makes the 
record specified in the ACTUAL KEY clause available and allows performance of 
imperative-statement if the contents of the ACTUAL KEY data item are found to be 
invalid. The rules for this format are given in the following paragraphs. 


An OPEN statement must be executed for a file prior to the execution of the first 
READ statement for that file. The record accessed by a READ statement is the 
record available in the input area prior to execution of any statement following that 
READ statement. 


If a file contains more than one type of logical record (that is, more than one 01 
level record description entry), all records in the file share the same record area, 
with the area being implicitly redefined for each record. Only the information present 
in the current record is accessible. 


The INTO option can only be used if the input file contains records of one type. The 
storage areas associated with file-name and identifier, respectively, must be sepa- 
rate areas. File-name must not represent a sort file. 


If the INTO option is used, the current record is moved from the input area to the 
area specified by identifier in accordance with the rules for the MOVE statement 
without the CORRESPONDING option. This record is now available in the identifier 
data area and the input record area. 


The READ statement performs the functions of the SEEK statement implicitly unless 
a SEEK statement referencing the same record has been executed prior to the READ 
statement. 
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3.4.2.4. 


3.4.2.5. 


FUNDAMENTALS OF COBOL 





MASS STORAGE 


SECTION: 


SEEK 


Format: 
SEEK file-name RECORD 
Description: 


The SEEK statement initiates the access of a mass storage data record for subse- 
quent reading or writing. The data-name in the ACTUAL KEY clause contains the 
location of the record sought. At execution time, the contents of the ACTUAL KEY 
are tested for validity. If invalid, the imperative-statement in the INVALID KEY 
phrase of the next executed READ or WRITE statement for the associated file is 
executed. 


Two SEEK statements for the same mass storage file may logically be executed 
without an intervening READ or WRITE statement. In this case, the validity check 
associated with the first SEEK statement is negated. 


The implied SEEK in a READ or WRITE statement is nct performed if the READ or 
WRITE is preceded by a separate SEEK statement referencing the same record as 
the READ or WRITE. 


WRITE 


Format: 


WRITE record-name [FROM identitier |; INVALID KEY imperativecctaiement 
Description: 


This format is used to write mass storage files at the location specified in the 
ACTUAL KEY clause in either the random or sequential access mode. It releases a 
logical record to an output file and permits performance of an imperative-statement 
if the file-limit is exceeded (ACTUAL KEY data item is found to be invalid). The 
rules for this format are given in the following paragraphs. 


An OPEN statement must be executed for a file prior to the execution of the first 
WRITE statement for that file. 


The logical record release by the execution of the WRITE statement is no longer 
available unless the associated file is named ina SAME RECORD AREA clause. 
The logical record is also available to the program as a record of other files appear- 
ing in the same SAME RECORD AREA clause as the associated output file. 


If the FROM option is specified, the data is moved from the area specified by iden- 
tifier to the output area according to the rules specified for the MOVE statement 
without the CORRESPONDING option. After execution of the WRITE statement, the 
information in identifier is available, even though that in record-name is not. 
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FUNDAMENTALS OF COBOL 
MASS STORAGE 
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SECTION: 


The storage areas for record-name and identifier, respectively, must be separate 
areas. Record-name must not represent a sort file. Record-name is the name of a 
logical record in the File Section of the Data Division and may be qualified. 


The WRITE statement implicitly performs the function of the SEEK statement for a 
specific mass Storage record, unless a SEEK statement was executed for this record 
prior to the execution of the WRITE statement. The imperative-statement in the 
INVALID KEY phrase is executed when the contents of the actual key being used to 
obtain the mass storage record are found to be invalid. When the INVALID KEY con- 
dition exists, no writing takes place and the information in the record area is 
available. End of file conditions are detected by means of the INVALID KEY phrase. 


If a mass storage file is contained on more than one mass Storage unit, end of unit 
procedures are the responsibility of the programmer, who must take the appropriate 
action consistent with system procedures to effect the transfer of the write operation 
from one unit to the next. 
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